(Fcompare_strings): Require first 6 args.

diff --git a/src/fns.c b/src/fns.c
index 97548e70f30a1af39949551de3430f0bd3502910..26443215a547cb32e5a4a07d3ef1124263ee92ee 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -219,7 +219,7 @@ Symbols are also allowed; their print names are used instead.")
 }
 
 DEFUN ("compare-strings", Fcompare_strings,
-       Scompare_strings, 2, 7, 0,
+       Scompare_strings, 6, 7, 0,
   "Compare the contents of two strings, converting to multibyte if needed.\n\
 In string STR1, skip the first START1 characters and stop at END1.\n\
 In string STR2, skip the first START2 characters and stop at END2.\n\